home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue39 / construc / RDATAMOD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-06  |  916 b   |  37 lines
  1. unit Rdatamod;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5.   ComServ, ComObj, VCLCom, StdVcl, BdeProv, DataBkr, DBClient, DbServer_TLB,
  6.   Provider, Db, DBTables;
  7.  
  8. type
  9.   TVisitorTracking = class(TRemoteDataModule, IVisitorTracking)
  10.     Table1: TTable;
  11.     Provider1: TProvider;
  12.     procedure VisitorTrackingCreate(Sender: TObject);
  13.   protected
  14.     function Get_Provider1: IProvider; safecall;
  15.   end;
  16.  
  17. var
  18.   VisitorTracking: TVisitorTracking;
  19.  
  20. implementation
  21. {$R *.DFM}
  22.  
  23. function TVisitorTracking.Get_Provider1: IProvider;
  24. begin
  25.   Result := Provider1.Provider;
  26. end;
  27.  
  28. procedure TVisitorTracking.VisitorTrackingCreate(Sender: TObject);
  29. begin
  30.   Table1.DatabaseName := ExtractFilePath(ParamStr(0))
  31. end;
  32.  
  33. initialization
  34.   TComponentFactory.Create(ComServer, TVisitorTracking,
  35.     Class_VisitorTracking, ciMultiInstance, tmApartment);
  36. end.
  37.